home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCEMessaging.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  36.1 KB  |  1,189 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Monday, November 8, 1993 11:57AM
  5. ;  OCEMessaging.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;   Copyright Apple Computer, Inc. 1990-1993
  9. ;   All rights reserved
  10. ; 
  11. ; ***********************************************************
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes:= 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingOCEMessaging
  22. ; $SETC UsingOCEMessaging:= 1
  23.  
  24. ; $I+
  25. ; $SETC OCEMessagingIncludes:= UsingIncludes
  26. ; $SETC UsingIncludes:= 1
  27.  
  28. ; $IFC UNDEFINED UsingDigitalSignature
  29. ; $I DigitalSignature.p
  30. ; $ENDC
  31.  
  32. ; $IFC UNDEFINED UsingFiles
  33.  
  34. (require-interface 'FILES)      ; $I $$Shell(PInterfaces)Files.p
  35. ; $ENDC
  36.  
  37. ; $IFC UNDEFINED UsingOCE
  38. ; $I OCE.p
  39. ; $ENDC
  40.  
  41. ; $IFC UNDEFINED UsingOCEAuthDir
  42. ; $I OCEAuthDir.p
  43. ; $ENDC
  44.  
  45. ; $IFC UNDEFINED UsingTypes
  46.  
  47. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  48. ; $ENDC
  49.  
  50. ; $SETC UsingIncludes:= OCEMessagingIncludes
  51.  
  52. ; ****************************************************************************
  53. ;  Definitions common to OCEMessaging and to OCEMail. These relate to addressing,
  54. ; message ids and priorities, etc. 
  55.  
  56. ;  Values of IPMPriority 
  57.  
  58. (defconstant $kIPMAnyPriority 0);  FOR FILTER ONLY 
  59. (defconstant $kIPMNormalPriority 1)
  60.  
  61. (def-mactype :IPMPRIORITY (find-mactype :UNSIGNED-BYTE))
  62.  
  63. ;  Values of IPMAccessMode 
  64. (defconstant $kIPMAtMark 0)
  65. (defconstant $kIPMFromStart 1)
  66. (defconstant $kIPMFromLEOM 2)
  67. (defconstant $kIPMFromMark 3)
  68.  
  69. (def-mactype :IPMACCESSMODE (find-mactype :SIGNED-INTEGER))
  70.  
  71. (defconstant $kIPMUpdateMsgBit 4)
  72. (defconstant $kIPMNewMsgBit 5)
  73. (defconstant $kIPMDeleteMsgBit 6)
  74.  
  75. ;  Values of IPMNotificationType 
  76. (defconstant $kIPMUpdateMsgMask #X10); 1<<kIPMUpdateMsgBit
  77. (defconstant $kIPMNewMsgMask #X20); 1<<kIPMNewMsgBit
  78. (defconstant $kIPMDeleteMsgMask #X40); 1<<kIPMDeleteMsgBit
  79.  
  80. (def-mactype :IPMNOTIFICATIONTYPE (find-mactype :UNSIGNED-BYTE))
  81.  
  82. ;  Values of IPMSenderTag 
  83. (defconstant $kIPMSenderRStringTag 0)
  84. (defconstant $kIPMSenderRecordIDTag 1)
  85.  
  86. (def-mactype :IPMSENDERTAG (find-mactype :SIGNED-INTEGER))
  87.  
  88. (defconstant $kIPMFromDistListBit 0)
  89. (defconstant $kIPMDummyRecBit 1)
  90. (defconstant $kIPMFeedbackRecBit 2);  should be redirected to feedback queue 
  91. (defconstant $kIPMReporterRecBit 3);  should be redirected to reporter original queue 
  92. (defconstant $kIPMBCCRecBit 4)  ;  this recipient is blind to all recipients of message 
  93.  
  94. ;  Values of OCERecipientOffsetFlags 
  95. (defconstant $kIPMFromDistListMask #X1); 1<<kIPMFromDistListBit
  96. (defconstant $kIPMDummyRecMask #X2); 1<<kIPMDummyRecBit
  97. (defconstant $kIPMFeedbackRecMask #X4); 1<<kIPMFeedbackRecBit
  98. (defconstant $kIPMReporterRecMask #X8); 1<<kIPMReporterRecBit
  99. (defconstant $kIPMBCCRecMask #X10); 1<<kIPMBCCRecBit
  100.  
  101. (def-mactype :OCERECIPIENTOFFSETFLAGS (find-mactype :UNSIGNED-BYTE))
  102.  
  103. (defrecord OCECreatorType 
  104.    (msgCreator :OSTYPE)
  105.    (msgType :OSTYPE)
  106.    )
  107.  
  108. (defconstant $kIPMTypeWildCard :|ipmw|)
  109.  
  110. (defconstant $kIPMFamilyUnspecified 0)
  111. (defconstant $kIPMFamilyWildCard :|????|)
  112.  
  113. ;  well known signature 
  114. (defconstant $kIPMSignature :|ipms|);  base type 
  115.  
  116. ;  well known message types 
  117. (defconstant $kIPMReportNotify :|rptn|);  routing feedback 
  118.  
  119. ;  well known message block types 
  120. (defconstant $kIPMEnclosedMsgType :|emsg|);  enclosed (nested) message 
  121. (defconstant $kIPMReportInfo :|rpti|);  recipient information 
  122. (defconstant $kIPMDigitalSignature :|dsig|);  digital signature 
  123.  
  124. ;  Values of IPMMsgFormat 
  125. (defconstant $kIPMOSFormatType 1)
  126. (defconstant $kIPMStringFormatType 2)
  127.  
  128. (def-mactype :IPMMSGFORMAT (find-mactype :SIGNED-INTEGER))
  129.  
  130. (def-mactype :IPMSTRINGMSGTYPE (find-mactype :STRING))
  131.  
  132. (defrecord IPMMsgType 
  133.    (format :SIGNED-INTEGER)     ;  IPMMsgFormat
  134.    (:variant 
  135.       ((msgOSType :OCECREATORTYPE))
  136.       ((msgStrType (:STRING 32)))
  137.       ))
  138.  
  139. ; 
  140. ; Following are the known extension values for IPM addresses handled by Apple.
  141. ; We define the definition of the entn extension below.
  142. ; 
  143.  
  144. (defconstant $kOCEalanXtn :|alan|)
  145. (defconstant $kOCEentnXtn :|entn|);  entn = entity name (DSSpec: aka) 
  146. (defconstant $kOCEaphnXtn :|aphn|)
  147.  
  148. ; 
  149. ; Following are the specific definitions for the extension for the standard
  150. ; OCEMail 'entn' addresses.  [Note, the actual extension is formatted as in
  151. ; IPMEntityNameExtension.]
  152. ; 
  153.  
  154. ;  entn extension forms 
  155. (defconstant $kOCEAddrXtn :|addr|)
  156. (defconstant $kOCEQnamXtn :|qnam|)
  157. (defconstant $kOCEAttrXtn :|attr|);  an attribute specification 
  158. (defconstant $kOCESpAtXtn :|spat|);  specific attribute 
  159.  
  160. ; 
  161. ; Following are the specific definitions for standard
  162. ; OCEMail 'aphn' extension value.  
  163. ; 
  164. ; All RStrings here are packed (e.g. truncated to length) and even padded (e.g.
  165. ; if length odd, then a pad byte (zero) should be introduced before the next field).
  166. ; 
  167. ; The extension value is in the packed form of the following structure:
  168. ;     RString        phoneNumber;
  169. ;     RString        modemType;
  170. ;     Str32        queueuName;
  171. ; 
  172. ; The body of phoneNumber compound RString is in the packed form of the following structure:
  173. ;     short         subType;
  174. ;     RString     countryCode;                // used when subType == kOCEUseHandyDial
  175. ;     RString        areaCode;                    // used when subType == kOCEUseHandyDial
  176. ;     RString        phone;                        // used when subType == kOCEUseHandyDial
  177. ;     RString        postFix;                    // used when subType == kOCEUseHandyDial
  178. ;     RString        nonHandyDialString;            // used when subType == kOCEDontUseHandyDial
  179. ; 
  180.  
  181. ;  phoneNumber sub type constants 
  182.  
  183. (defconstant $kOCEUseHandyDial 1)
  184. (defconstant $kOCEDontUseHandyDial 2)
  185.  
  186. (defrecord ProtoOCEPackedRecipient 
  187.    (dataLength :SIGNED-INTEGER)
  188.    )
  189.  
  190. (defconstant $kOCEPackedRecipientMaxBytes (- 4096 (RECORD-LENGTH PROTOOCEPACKEDRECIPIENT)))
  191.  
  192. (defrecord OCEPackedRecipient 
  193.    (dataLength :SIGNED-INTEGER)
  194.  
  195.    (data (:ARRAY :UNSIGNED-BYTE 4094))
  196.    )
  197. (def-mactype :OCEPACKEDRECIPIENTPTR (find-mactype :POINTER))
  198.  
  199. (defrecord IPMEntnQueueExtension 
  200.    (queueName (:STRING 32))
  201.    )
  202.  
  203. (defrecord IPMEntnAttributeExtension ;  kOCEAttrXtn 
  204.    (attributeName :ATTRIBUTETYPE)
  205.    )
  206.  
  207. (defrecord IPMEntnSpecificAttributeExtension ;  kOCESpAtXtn 
  208.    (AttributeCreationID :CREATIONID)
  209.    (attributeName :ATTRIBUTETYPE)
  210.    )
  211.  
  212. ;  All IPM entn extensions fit within the following 
  213.  
  214. (defrecord IPMEntityNameExtension 
  215.    (subExtensionType :OSTYPE)
  216.    (:variant 
  217.       ((specificAttribute :IPMENTNSPECIFICATTRIBUTEEXTENSION))
  218.       ((attribute :IPMENTNATTRIBUTEEXTENSION))
  219.       ((queue :IPMENTNQUEUEEXTENSION))
  220.       ))
  221.  
  222. ;  addresses with kIPMNBPXtn should specify this nbp type 
  223.  
  224. (defconstant $kIPMWSReceiverNBPType "MsgReceiver")
  225.  
  226. (defrecord IPMMsgID 
  227.    (id (:ARRAY :SIGNED-LONG (- 4 1 -1)))
  228.    )
  229.  
  230. ;  Values of IPMHeaderSelector 
  231. (defconstant $kIPMTOC 0)
  232. (defconstant $kIPMSender 1)
  233. (defconstant $kIPMProcessHint 2)
  234. (defconstant $kIPMMessageTitle 3)
  235. (defconstant $kIPMMessageType 4)
  236. (defconstant $kIPMFixedInfo 7)
  237.  
  238. (def-mactype :IPMHEADERSELECTOR (find-mactype :UNSIGNED-BYTE))
  239.  
  240. (defrecord IPMSender 
  241.    (sendTag :SIGNED-INTEGER)
  242.    (:variant 
  243.       ((RString :RSTRING))
  244.       ((rid :PACKEDRECORDID))
  245.       ))
  246.  
  247. (%define-record :OCERECIPIENT (find-record-descriptor :DSSPEC))
  248.  
  249. ; ****************************************************************************
  250. ;  Definitions specific to OCEMessaging 
  251.  
  252. (def-mactype :IPMCONTEXTREF (find-mactype :SIGNED-LONG))
  253. (def-mactype :IPMQUEUEREF (find-mactype :SIGNED-LONG))
  254. (def-mactype :IPMMSGREF (find-mactype :SIGNED-LONG))
  255. (def-mactype :IPMSEQNUM (find-mactype :SIGNED-LONG))
  256. (def-mactype :IPMPROCHINT (find-mactype :STRING))
  257. (def-mactype :IPMQUEUENAME (find-mactype :STRING))
  258.  
  259. (def-mactype :IPMNOTEPROCPTR (find-mactype :POINTER))
  260. ;  FUNCTION IPMNoteProcPtr(queue: IPMQueueRef; seqNum: IPMSeqNum;
  261. ;          notificationType: IPMNotificationType; userData: LONGINT): void;
  262.  
  263. (defrecord IPMFixedHdrInfo 
  264.    (version :SIGNED-INTEGER)
  265.  
  266. ; ERROR!! Record field AUTHENTICATED declared PACKED BOOLEAN !
  267.    (authenticated :BOOLEAN)
  268.  
  269. ; ERROR!! Record field SIGNATUREENCLOSED declared PACKED BOOLEAN !
  270.    (signatureEnclosed :BOOLEAN) ;  digital signature enclosed 
  271.    (msgSize :SIGNED-LONG)
  272.    (notification :UNSIGNED-BYTE)
  273.    (priority :UNSIGNED-BYTE)
  274.    (blockCount :SIGNED-INTEGER)
  275.    (originalRcptCount :SIGNED-INTEGER);  original number of recipients 
  276.    (refCon :SIGNED-LONG)        ;  Client defined data 
  277.    (reserved :SIGNED-INTEGER)
  278.    (creationTime :SIGNED-LONG)  ;  Time when it was created 
  279.    (msgID :IPMMSGID)
  280.    (family :OSTYPE)             ;  family this msg belongs (e.g. mail) 
  281.    )
  282.  
  283. (defconstant $kIPMDeliveryNotificationBit 0)
  284. (defconstant $kIPMNonDeliveryNotificationBit 1)
  285. (defconstant $kIPMEncloseOriginalBit 2)
  286. (defconstant $kIPMSummaryReportBit 3)
  287. (defconstant $kIPMOriginalOnlyOnErrorBit 4);  modify enclose original to only on error 
  288.  
  289. (defconstant $kIPMNoNotificationMask #X0)
  290. (defconstant $kIPMDeliveryNotificationMask #X1); 1<<kIPMDeliveryNotificationBit
  291. (defconstant $kIPMNonDeliveryNotificationMask #X2); 1<<kIPMNonDeliveryNotificationBit
  292. (defconstant $kIPMDontEncloseOriginalMask #X0)
  293. (defconstant $kIPMEncloseOriginalMask #X4); 1<<kIPMEncloseOriginalBit
  294. (defconstant $kIPMImmediateReportMask #X0)
  295. (defconstant $kIPMSummaryReportMask #X8); 1<<kIPMSummaryReportBit
  296. (defconstant $kIPMOriginalOnlyOnErrorMask #X10); 1<<kIPMOriginalOnlyOnErrorBit
  297. (defconstant $kIPMEncloseOriginalOnErrorMask (+ #$KIPMORIGINALONLYONERRORMASK #$KIPMENCLOSEORIGINALMASK))
  298.  
  299. ;  standard Non delivery codes 
  300. (defconstant $kIPMNoSuchRecipient #X1)
  301. (defconstant $kIPMRecipientMalformed #X2)
  302. (defconstant $kIPMRecipientAmbiguous #X3)
  303. (defconstant $kIPMRecipientAccessDenied #X4)
  304. (defconstant $kIPMGroupExpansionProblem #X5)
  305. (defconstant $kIPMMsgUnreadable #X6)
  306. (defconstant $kIPMMsgExpired #X7)
  307. (defconstant $kIPMMsgNoTranslatableContent #X8)
  308. (defconstant $kIPMRecipientReqStdCont #X9)
  309. (defconstant $kIPMRecipientReqSnapShot #XA)
  310. (defconstant $kIPMNoTransferDiskFull #XB)
  311. (defconstant $kIPMNoTransferMsgRejectedbyDest #XC)
  312. (defconstant $kIPMNoTransferMsgTooLarge #XD)
  313.  
  314. ; ***********************************************************************
  315. ; 
  316. ; This is the structure that will be returned by enumerate and getmsginfo
  317. ; This definition is just to give you a template, the position of msgType
  318. ; is variable since this is a packed structure.  procHint and msgType are
  319. ; packed and even length padded.
  320. ; 
  321.  
  322. (defrecord IPMMsgInfo 
  323.    (sequenceNum :SIGNED-LONG)
  324.    (userData :SIGNED-LONG)
  325.    (respIndex :SIGNED-INTEGER)
  326.    (padByte :UNSIGNED-BYTE)
  327.    (priority :UNSIGNED-BYTE)
  328.    (msgSize :SIGNED-LONG)
  329.    (originalRcptCount :SIGNED-INTEGER)
  330.    (reserved :SIGNED-INTEGER)
  331.    (creationTime :SIGNED-LONG)
  332.    (msgID :IPMMSGID)
  333.    (family :OSTYPE)             ;  family this msg belongs to (e.g. mail) 
  334.    (procHint (:STRING 32))
  335.    (msgType :IPMMSGTYPE)
  336.    )
  337.  
  338. (%define-record :IPMBLOCKTYPE (find-record-descriptor :OCECREATORTYPE))
  339.  
  340. (defrecord IPMTOC 
  341.    (blockType :OCECREATORTYPE)
  342.    (blockOffset :SIGNED-LONG)
  343.    (blockSize :SIGNED-LONG)
  344.    (blockRefCon :SIGNED-LONG)
  345.    )
  346.  
  347. ; 
  348. ; The following structure is just to describe the layout of the SingleFilter.
  349. ; Each field should be packed and word aligned when passed to the IPM ToolBox.
  350. ; 
  351.  
  352. (defrecord IPMSingleFilter 
  353.    (priority :UNSIGNED-BYTE)
  354.    (padByte :UNSIGNED-BYTE)
  355.    (family :OSTYPE)             ;  family this msg belongs (e.g. mail), '????' for all 
  356.    (script :SIGNED-INTEGER)     ;  Language Identifier 
  357.    (hint (:STRING 32))
  358.    (msgType :IPMMSGTYPE)
  359.    )
  360.  
  361. (defrecord IPMFilter 
  362.    (count :SIGNED-INTEGER)
  363.    (sFilters (:ARRAY :IPMSINGLEFILTER (- 1 1 -1)))
  364.    )
  365.  
  366. ; ***********************************************************************
  367. ; 
  368. ; Following structures define the “start” of a recipient report block and the
  369. ; elements of the array respectively.
  370. ; 
  371.  
  372. (defrecord IPMReportBlockHeader 
  373.    (msgID :IPMMSGID)            ;  message id of the original 
  374.    (creationTime :SIGNED-LONG)  ;  creation time of the report 
  375.    )
  376.  
  377. (defrecord OCERecipientReport 
  378.    (rcptIndex :SIGNED-INTEGER)  ;  index of recipient in original message 
  379.    (result :SIGNED-INTEGER)     ;  result of sending letter to this recipient
  380.    )
  381.  
  382. ; ***********************************************************************
  383. (defrecord IPMParamHeader 
  384.    (qLink :POINTER)
  385.    (reservedH1 :SIGNED-LONG)
  386.    (reservedH2 :SIGNED-LONG)
  387.    (ioCompletion :POINTER)
  388.    (ioResult :SIGNED-INTEGER)
  389.    (saveA5 :SIGNED-LONG)
  390.    (reqCode :SIGNED-INTEGER)
  391.    )
  392.  
  393. (defrecord IPMOpenContextPB 
  394.    (qLink :POINTER)
  395.    (reservedH1 :SIGNED-LONG)
  396.    (reservedH2 :SIGNED-LONG)
  397.    (ioCompletion :POINTER)
  398.    (ioResult :SIGNED-INTEGER)
  399.    (saveA5 :SIGNED-LONG)
  400.    (reqCode :SIGNED-INTEGER)
  401.  
  402.    (contextRef :SIGNED-LONG)    ;  <--  Context reference to be used in further calls
  403.    )
  404.  
  405. (%define-record :IPMCLOSECONTEXTPB (find-record-descriptor :IPMOPENCONTEXTPB))
  406.  
  407. (defrecord IPMCreateQueuePB 
  408.    (qLink :POINTER)
  409.    (reservedH1 :SIGNED-LONG)
  410.    (reservedH2 :SIGNED-LONG)
  411.    (ioCompletion :POINTER)
  412.    (ioResult :SIGNED-INTEGER)
  413.    (saveA5 :SIGNED-LONG)
  414.    (reqCode :SIGNED-INTEGER)
  415.  
  416.    (filler1 :SIGNED-LONG)
  417.    (queue (:POINTER :DSSPEC))
  418.    (identity :SIGNED-LONG)      ;  used only if queue is remote 
  419.    (owner (:POINTER :PACKEDRECORDID));  used only if queue is remote 
  420.    )
  421.  
  422. ;  For createqueue and deletequeue only queue and identity are used 
  423. (%define-record :IPMDELETEQUEUEPB (find-record-descriptor :IPMCREATEQUEUEPB))
  424.  
  425. (defrecord IPMOpenQueuePB 
  426.    (qLink :POINTER)
  427.    (reservedH1 :SIGNED-LONG)
  428.    (reservedH2 :SIGNED-LONG)
  429.    (ioCompletion :POINTER)
  430.    (ioResult :SIGNED-INTEGER)
  431.    (saveA5 :SIGNED-LONG)
  432.    (reqCode :SIGNED-INTEGER)
  433.  
  434.    (contextRef :SIGNED-LONG)
  435.    (queue (:POINTER :DSSPEC))
  436.    (identity :SIGNED-LONG)
  437.    (filter (:POINTER :IPMFILTER))
  438.    (newQueueRef :SIGNED-LONG)
  439.    (notificationProc :POINTER)
  440.    (userData :SIGNED-LONG)
  441.    (noteType :UNSIGNED-BYTE)
  442.    (padByte :UNSIGNED-BYTE)
  443.    (reserved :SIGNED-LONG)
  444.    (reserved2 :SIGNED-LONG)
  445.    )
  446.  
  447. (defrecord IPMCloseQueuePB 
  448.    (qLink :POINTER)
  449.    (reservedH1 :SIGNED-LONG)
  450.    (reservedH2 :SIGNED-LONG)
  451.    (ioCompletion :POINTER)
  452.    (ioResult :SIGNED-INTEGER)
  453.    (saveA5 :SIGNED-LONG)
  454.    (reqCode :SIGNED-INTEGER)
  455.  
  456.    (queueRef :SIGNED-LONG)
  457.    )
  458.  
  459. (defrecord IPMEnumerateQueuePB 
  460.    (qLink :POINTER)
  461.    (reservedH1 :SIGNED-LONG)
  462.    (reservedH2 :SIGNED-LONG)
  463.    (ioCompletion :POINTER)
  464.    (ioResult :SIGNED-INTEGER)
  465.    (saveA5 :SIGNED-LONG)
  466.    (reqCode :SIGNED-INTEGER)
  467.  
  468.    (queueRef :SIGNED-LONG)
  469.    (startSeqNum :SIGNED-LONG)
  470.    (getProcHint :BOOLEAN)
  471.    (getMsgType :BOOLEAN)
  472.    (filler :SIGNED-INTEGER)
  473.    (filter (:POINTER :IPMFILTER))
  474.    (numToGet :SIGNED-INTEGER)
  475.    (numGotten :SIGNED-INTEGER)
  476.    (enumCount :SIGNED-LONG)
  477.    (enumBuffer :POINTER)        ;  will be packed array of IPMMsgInfo 
  478.    (actEnumCount :SIGNED-LONG)
  479.    )
  480.  
  481. (%define-record :IPMCHANGEQUEUEFILTERPB (find-record-descriptor :IPMENUMERATEQUEUEPB))
  482.  
  483. (defrecord IPMDeleteMsgRangePB 
  484.    (qLink :POINTER)
  485.    (reservedH1 :SIGNED-LONG)
  486.    (reservedH2 :SIGNED-LONG)
  487.    (ioCompletion :POINTER)
  488.    (ioResult :SIGNED-INTEGER)
  489.    (saveA5 :SIGNED-LONG)
  490.    (reqCode :SIGNED-INTEGER)
  491.  
  492.    (queueRef :SIGNED-LONG)
  493.    (startSeqNum :SIGNED-LONG)
  494.    (endSeqNum :SIGNED-LONG)
  495.    (lastSeqNum :SIGNED-LONG)
  496.    )
  497.  
  498. (defrecord IPMOpenMsgPB 
  499.    (qLink :POINTER)
  500.    (reservedH1 :SIGNED-LONG)
  501.    (reservedH2 :SIGNED-LONG)
  502.    (ioCompletion :POINTER)
  503.    (ioResult :SIGNED-INTEGER)
  504.    (saveA5 :SIGNED-LONG)
  505.    (reqCode :SIGNED-INTEGER)
  506.  
  507.    (queueRef :SIGNED-LONG)
  508.    (sequenceNum :SIGNED-LONG)
  509.    (newMsgRef :SIGNED-LONG)
  510.    (actualSeqNum :SIGNED-LONG)
  511.  
  512. ; ERROR!! Record field EXACTMATCH declared PACKED BOOLEAN !
  513.    (exactMatch :BOOLEAN)
  514.    (padByte :UNSIGNED-BYTE)
  515.    (reserved :SIGNED-LONG)
  516.    )
  517.  
  518. (defrecord IPMOpenHFSMsgPB 
  519.    (qLink :POINTER)
  520.    (reservedH1 :SIGNED-LONG)
  521.    (reservedH2 :SIGNED-LONG)
  522.    (ioCompletion :POINTER)
  523.    (ioResult :SIGNED-INTEGER)
  524.    (saveA5 :SIGNED-LONG)
  525.    (reqCode :SIGNED-INTEGER)
  526.  
  527.    (hfsPath (:POINTER :FSSPEC))
  528.    (filler :SIGNED-LONG)
  529.    (newMsgRef :SIGNED-LONG)
  530.    (filler2 :SIGNED-LONG)
  531.  
  532. ; ERROR!! Record field FILLER3 declared Non-PACKED BYTE !
  533.    (filler3 :UNSIGNED-BYTE)
  534.    (reserved :SIGNED-LONG)
  535.    )
  536.  
  537. (defrecord IPMOpenBlockAsMsgPB 
  538.    (qLink :POINTER)
  539.    (reservedH1 :SIGNED-LONG)
  540.    (reservedH2 :SIGNED-LONG)
  541.    (ioCompletion :POINTER)
  542.    (ioResult :SIGNED-INTEGER)
  543.    (saveA5 :SIGNED-LONG)
  544.    (reqCode :SIGNED-INTEGER)
  545.  
  546.    (msgRef :SIGNED-LONG)
  547.    (filler :SIGNED-LONG)
  548.    (newMsgRef :SIGNED-LONG)
  549.    (filler2 (:ARRAY :SIGNED-INTEGER (- 7 1 -1)))
  550.    (blockIndex :SIGNED-INTEGER)
  551.    )
  552.  
  553. (defrecord IPMCloseMsgPB 
  554.    (qLink :POINTER)
  555.    (reservedH1 :SIGNED-LONG)
  556.    (reservedH2 :SIGNED-LONG)
  557.    (ioCompletion :POINTER)
  558.    (ioResult :SIGNED-INTEGER)
  559.    (saveA5 :SIGNED-LONG)
  560.    (reqCode :SIGNED-INTEGER)
  561.  
  562.    (msgRef :SIGNED-LONG)
  563.    (deleteMsg :BOOLEAN)
  564.    )
  565.  
  566. (defrecord IPMGetMsgInfoPB 
  567.    (qLink :POINTER)
  568.    (reservedH1 :SIGNED-LONG)
  569.    (reservedH2 :SIGNED-LONG)
  570.    (ioCompletion :POINTER)
  571.    (ioResult :SIGNED-INTEGER)
  572.    (saveA5 :SIGNED-LONG)
  573.    (reqCode :SIGNED-INTEGER)
  574.  
  575.    (msgRef :SIGNED-LONG)
  576.    (info (:POINTER :IPMMSGINFO))
  577.    )
  578.  
  579. (defrecord IPMReadHeaderPB 
  580.    (qLink :POINTER)
  581.    (reservedH1 :SIGNED-LONG)
  582.    (reservedH2 :SIGNED-LONG)
  583.    (ioCompletion :POINTER)
  584.    (ioResult :SIGNED-INTEGER)
  585.    (saveA5 :SIGNED-LONG)
  586.    (reqCode :SIGNED-INTEGER)
  587.  
  588.    (msgRef :SIGNED-LONG)
  589.    (fieldSelector :SIGNED-INTEGER)
  590.    (offset :SIGNED-LONG)
  591.    (count :SIGNED-LONG)
  592.    (buffer :POINTER)
  593.    (actualCount :SIGNED-LONG)
  594.    (filler :SIGNED-INTEGER)
  595.    (remaining :SIGNED-LONG)
  596.    )
  597.  
  598. (defrecord IPMReadRecipientPB 
  599.    (qLink :POINTER)
  600.    (reservedH1 :SIGNED-LONG)
  601.    (reservedH2 :SIGNED-LONG)
  602.    (ioCompletion :POINTER)
  603.    (ioResult :SIGNED-INTEGER)
  604.    (saveA5 :SIGNED-LONG)
  605.    (reqCode :SIGNED-INTEGER)
  606.  
  607.    (msgRef :SIGNED-LONG)
  608.    (rcptIndex :SIGNED-INTEGER)
  609.    (offset :SIGNED-LONG)
  610.    (count :SIGNED-LONG)
  611.    (buffer :POINTER)
  612.    (actualCount :SIGNED-LONG)
  613.    (reserved :SIGNED-INTEGER)   ;  must be zero 
  614.    (remaining :SIGNED-LONG)
  615.    (originalIndex :SIGNED-INTEGER)
  616.    (recipientOffsetFlags :UNSIGNED-BYTE)
  617.    )
  618.  
  619. ; 
  620. ; replyQueue works like recipient. [can no longer read it via ReadHeader]
  621. ; OriginalIndex is meaningless, rcptFlags are used seperately and there are
  622. ; currently none defined.
  623. ; 
  624. (%define-record :IPMREADREPLYQUEUEPB (find-record-descriptor :IPMREADRECIPIENTPB))
  625.  
  626. (defrecord IPMGetBlkIndexPB 
  627.    (qLink :POINTER)
  628.    (reservedH1 :SIGNED-LONG)
  629.    (reservedH2 :SIGNED-LONG)
  630.    (ioCompletion :POINTER)
  631.    (ioResult :SIGNED-INTEGER)
  632.    (saveA5 :SIGNED-LONG)
  633.    (reqCode :SIGNED-INTEGER)
  634.  
  635.    (msgRef :SIGNED-LONG)
  636.    (blockType :OCECREATORTYPE)
  637.    (index :SIGNED-INTEGER)
  638.    (startingFrom :SIGNED-INTEGER)
  639.    (actualBlockType :OCECREATORTYPE)
  640.    (actualBlockIndex :SIGNED-INTEGER)
  641.    )
  642.  
  643. (defrecord IPMReadMsgPB 
  644.    (qLink :POINTER)
  645.    (reservedH1 :SIGNED-LONG)
  646.    (reservedH2 :SIGNED-LONG)
  647.    (ioCompletion :POINTER)
  648.    (ioResult :SIGNED-INTEGER)
  649.    (saveA5 :SIGNED-LONG)
  650.    (reqCode :SIGNED-INTEGER)
  651.  
  652.    (msgRef :SIGNED-LONG)
  653.    (mode :SIGNED-INTEGER)
  654.    (offset :SIGNED-LONG)
  655.    (count :SIGNED-LONG)
  656.    (buffer :POINTER)
  657.    (actualCount :SIGNED-LONG)
  658.    (blockIndex :SIGNED-INTEGER)
  659.    (remaining :SIGNED-LONG)
  660.    )
  661.  
  662. (defrecord IPMVerifySignaturePB 
  663.    (qLink :POINTER)
  664.    (reservedH1 :SIGNED-LONG)
  665.    (reservedH2 :SIGNED-LONG)
  666.    (ioCompletion :POINTER)
  667.    (ioResult :SIGNED-INTEGER)
  668.    (saveA5 :SIGNED-LONG)
  669.    (reqCode :SIGNED-INTEGER)
  670.  
  671.    (msgRef :SIGNED-LONG)
  672.    (signatureContext :SIGCONTEXTPTR)
  673.    )
  674.  
  675. (defrecord IPMNewMsgPB 
  676.    (qLink :POINTER)
  677.    (reservedH1 :SIGNED-LONG)
  678.    (reservedH2 :SIGNED-LONG)
  679.    (ioCompletion :POINTER)
  680.    (ioResult :SIGNED-INTEGER)
  681.    (saveA5 :SIGNED-LONG)
  682.    (reqCode :SIGNED-INTEGER)
  683.  
  684.    (filler :SIGNED-LONG)
  685.    (recipient (:POINTER :DSSPEC))
  686.    (replyQueue (:POINTER :DSSPEC))
  687.    (procHint (:POINTER (:STRING 255)))
  688.    (filler2 :SIGNED-INTEGER)
  689.    (msgType (:POINTER :IPMMSGTYPE))
  690.    (refCon :SIGNED-LONG)
  691.    (newMsgRef :SIGNED-LONG)
  692.    (filler3 :SIGNED-INTEGER)
  693.    (filler4 :SIGNED-LONG)
  694.    (identity :SIGNED-LONG)
  695.    (sender (:POINTER :IPMSENDER))
  696.    (internalUse :SIGNED-LONG)
  697.    (internalUse2 :SIGNED-LONG)
  698.    )
  699.  
  700. (defrecord IPMNewHFSMsgPB 
  701.    (qLink :POINTER)
  702.    (reservedH1 :SIGNED-LONG)
  703.    (reservedH2 :SIGNED-LONG)
  704.    (ioCompletion :POINTER)
  705.    (ioResult :SIGNED-INTEGER)
  706.    (saveA5 :SIGNED-LONG)
  707.    (reqCode :SIGNED-INTEGER)
  708.  
  709.    (hfsPath (:POINTER :FSSPEC))
  710.    (recipient (:POINTER :DSSPEC))
  711.    (replyQueue (:POINTER :DSSPEC))
  712.    (procHint (:POINTER (:STRING 255)))
  713.    (filler2 :SIGNED-INTEGER)
  714.    (msgType (:POINTER :IPMMSGTYPE))
  715.    (refCon :SIGNED-LONG)
  716.    (newMsgRef :SIGNED-LONG)
  717.    (filler3 :SIGNED-INTEGER)
  718.    (filler4 :SIGNED-LONG)
  719.    (identity :SIGNED-LONG)
  720.    (sender (:POINTER :IPMSENDER))
  721.    (internalUse :SIGNED-LONG)
  722.    (internalUse2 :SIGNED-LONG)
  723.    )
  724.  
  725. (defrecord IPMNestMsgPB 
  726.    (qLink :POINTER)
  727.    (reservedH1 :SIGNED-LONG)
  728.    (reservedH2 :SIGNED-LONG)
  729.    (ioCompletion :POINTER)
  730.    (ioResult :SIGNED-INTEGER)
  731.    (saveA5 :SIGNED-LONG)
  732.    (reqCode :SIGNED-INTEGER)
  733.  
  734.    (msgRef :SIGNED-LONG)
  735.    (filler (:ARRAY :SIGNED-INTEGER (- 9 1 -1)))
  736.    (refCon :SIGNED-LONG)
  737.    (msgToNest :SIGNED-LONG)
  738.    (filler2 :SIGNED-INTEGER)
  739.    (startingOffset :SIGNED-LONG)
  740.    )
  741.  
  742. (defrecord IPMNewNestedMsgBlockPB 
  743.    (qLink :POINTER)
  744.    (reservedH1 :SIGNED-LONG)
  745.    (reservedH2 :SIGNED-LONG)
  746.    (ioCompletion :POINTER)
  747.    (ioResult :SIGNED-INTEGER)
  748.    (saveA5 :SIGNED-LONG)
  749.    (reqCode :SIGNED-INTEGER)
  750.  
  751.    (msgRef :SIGNED-LONG)
  752.    (recipient (:POINTER :DSSPEC))
  753.    (replyQueue (:POINTER :DSSPEC))
  754.    (procHint (:POINTER (:STRING 255)))
  755.    (filler1 :SIGNED-INTEGER)
  756.    (msgType (:POINTER :IPMMSGTYPE))
  757.    (refCon :SIGNED-LONG)
  758.    (newMsgRef :SIGNED-LONG)
  759.    (filler2 :SIGNED-INTEGER)
  760.    (startingOffset :SIGNED-LONG)
  761.    (identity :SIGNED-LONG)
  762.    (sender (:POINTER :IPMSENDER))
  763.    (internalUse :SIGNED-LONG)
  764.    (internalUse2 :SIGNED-LONG)
  765.    )
  766.  
  767. (defrecord IPMEndMsgPB 
  768.    (qLink :POINTER)
  769.    (reservedH1 :SIGNED-LONG)
  770.    (reservedH2 :SIGNED-LONG)
  771.    (ioCompletion :POINTER)
  772.    (ioResult :SIGNED-INTEGER)
  773.    (saveA5 :SIGNED-LONG)
  774.    (reqCode :SIGNED-INTEGER)
  775.  
  776.    (msgRef :SIGNED-LONG)
  777.    (msgID :IPMMSGID)
  778.    (msgTitle (:POINTER :RSTRING))
  779.    (deliveryNotification :UNSIGNED-BYTE)
  780.    (priority :UNSIGNED-BYTE)
  781.  
  782. ; ERROR!! Record field CANCEL declared PACKED BOOLEAN !
  783.    (cancel :BOOLEAN)
  784.    (padByte :UNSIGNED-BYTE)
  785.    (reserved :SIGNED-LONG)
  786.    (signature :SIGSIGNATUREPTR)
  787.    (signatureSize :SIZE)
  788.    (signatureContext :SIGCONTEXTPTR)
  789.    (family :OSTYPE)             ;  family this msg belongs (e.g. mail) 
  790. ;  use kIPMFamilyUnspecified by default 
  791.    )
  792.  
  793. (defrecord IPMAddRecipientPB 
  794.    (qLink :POINTER)
  795.    (reservedH1 :SIGNED-LONG)
  796.    (reservedH2 :SIGNED-LONG)
  797.    (ioCompletion :POINTER)
  798.    (ioResult :SIGNED-INTEGER)
  799.    (saveA5 :SIGNED-LONG)
  800.    (reqCode :SIGNED-INTEGER)
  801.  
  802.    (msgRef :SIGNED-LONG)
  803.    (recipient (:POINTER :DSSPEC))
  804.    (reserved :SIGNED-LONG)
  805.    )
  806.  
  807. (defrecord IPMAddReplyQueuePB 
  808.    (qLink :POINTER)
  809.    (reservedH1 :SIGNED-LONG)
  810.    (reservedH2 :SIGNED-LONG)
  811.    (ioCompletion :POINTER)
  812.    (ioResult :SIGNED-INTEGER)
  813.    (saveA5 :SIGNED-LONG)
  814.    (reqCode :SIGNED-INTEGER)
  815.  
  816.    (msgRef :SIGNED-LONG)
  817.    (filler :SIGNED-LONG)
  818.    (replyQueue (:POINTER :DSSPEC))
  819.    )
  820.  
  821. (defrecord IPMNewBlockPB 
  822.    (qLink :POINTER)
  823.    (reservedH1 :SIGNED-LONG)
  824.    (reservedH2 :SIGNED-LONG)
  825.    (ioCompletion :POINTER)
  826.    (ioResult :SIGNED-INTEGER)
  827.    (saveA5 :SIGNED-LONG)
  828.    (reqCode :SIGNED-INTEGER)
  829.  
  830.    (msgRef :SIGNED-LONG)
  831.    (blockType :OCECREATORTYPE)
  832.    (filler (:ARRAY :SIGNED-INTEGER (- 5 1 -1)))
  833.    (refCon :SIGNED-LONG)
  834.    (filler2 (:ARRAY :SIGNED-INTEGER (- 3 1 -1)))
  835.    (startingOffset :SIGNED-LONG)
  836.    )
  837.  
  838. (defrecord IPMWriteMsgPB 
  839.    (qLink :POINTER)
  840.    (reservedH1 :SIGNED-LONG)
  841.    (reservedH2 :SIGNED-LONG)
  842.    (ioCompletion :POINTER)
  843.    (ioResult :SIGNED-INTEGER)
  844.    (saveA5 :SIGNED-LONG)
  845.    (reqCode :SIGNED-INTEGER)
  846.  
  847.    (msgRef :SIGNED-LONG)
  848.    (mode :SIGNED-INTEGER)
  849.    (offset :SIGNED-LONG)
  850.    (count :SIGNED-LONG)
  851.    (buffer :POINTER)
  852.    (actualCount :SIGNED-LONG)
  853.    (currentBlock :BOOLEAN)
  854.    )
  855.  
  856. (defrecord IPMParamBlock 
  857.    (:variant 
  858.       ((header :IPMPARAMHEADER))
  859.       ((openContextPB :IPMOPENCONTEXTPB))
  860.       ((closeContextPB :IPMOPENCONTEXTPB))
  861.       ((createQueuePB :IPMCREATEQUEUEPB))
  862.       ((deleteQueuePB :IPMCREATEQUEUEPB))
  863.       ((openQueuePB :IPMOPENQUEUEPB))
  864.       ((closeQueuePB :IPMCLOSEQUEUEPB))
  865.       ((enumerateQueuePB :IPMENUMERATEQUEUEPB))
  866.       ((changeQueueFilterPB :IPMENUMERATEQUEUEPB))
  867.       ((deleteMsgRangePB :IPMDELETEMSGRANGEPB))
  868.       ((openMsgPB :IPMOPENMSGPB))
  869.       ((openHFSMsgPB :IPMOPENHFSMSGPB))
  870.       ((openBlockAsMsgPB :IPMOPENBLOCKASMSGPB))
  871.       ((closeMsgPB :IPMCLOSEMSGPB))
  872.       ((getMsgInfoPB :IPMGETMSGINFOPB))
  873.       ((readHeaderPB :IPMREADHEADERPB))
  874.       ((readRecipientPB :IPMREADRECIPIENTPB))
  875.       ((readReplyQueuePB :IPMREADRECIPIENTPB))
  876.       ((getBlkIndexPB :IPMGETBLKINDEXPB))
  877.       ((readMsgPB :IPMREADMSGPB))
  878.       ((verifySignaturePB :IPMVERIFYSIGNATUREPB))
  879.       ((newMsgPB :IPMNEWMSGPB))
  880.       ((newHFSMsgPB :IPMNEWHFSMSGPB))
  881.       ((nestMsgPB :IPMNESTMSGPB))
  882.       ((newNestedMsgBlockPB :IPMNEWNESTEDMSGBLOCKPB))
  883.       ((endMsgPB :IPMENDMSGPB))
  884.       ((addRecipientPB :IPMADDRECIPIENTPB))
  885.       ((addReplyQueuePB :IPMADDREPLYQUEUEPB))
  886.       ((newBlockPB :IPMNEWBLOCKPB))
  887.       ((writeMsgPB :IPMWRITEMSGPB))
  888.       ))
  889.  
  890. (def-mactype :IPMPARAMBLOCKPTR (find-mactype :POINTER))
  891.  
  892. ;     Request codes 
  893. (defconstant $kIPMOpenContext #X400)
  894. (defconstant $kIPMCloseContext #X401)
  895. (defconstant $kIPMNewMsg #X402)
  896. (defconstant $kIPMAddRecipient #X403)
  897. (defconstant $kIPMNewBlock #X404)
  898. (defconstant $kIPMNewNestedMsgBlock #X405)
  899. (defconstant $kIPMNestMsg #X406)
  900. (defconstant $kIPMWriteMsg #X407)
  901. (defconstant $kIPMEndMsg #X408)
  902. (defconstant $kIPMOpenQueue #X409)
  903. (defconstant $kIPMCloseQueue #X40A)
  904. (defconstant $kIPMOpenMsg #X40B)
  905. (defconstant $kIPMCloseMsg #X40C)
  906. (defconstant $kIPMReadMsg #X40D)
  907. (defconstant $kIPMReadHeader #X40E)
  908. (defconstant $kIPMOpenBlockAsMsg #X40F)
  909. (defconstant $kIPMReadRecipient #X410)
  910. (defconstant $kIPMCreateQueue #X411)
  911. (defconstant $kIPMDeleteQueue #X412)
  912. (defconstant $kIPMEnumerateQueue #X413)
  913. (defconstant $kIPMChangeQueueFilter #X414)
  914. (defconstant $kIPMDeleteMsgRange #X415)
  915. (defconstant $kIPMOpenHFSMsg #X417)
  916. (defconstant $kIPMGetBlkIndex #X418)
  917. (defconstant $kIPMGetMsgInfo #X419)
  918.  
  919. (defconstant $kIPMAddReplyQueue #X41D)
  920. (defconstant $kIPMNewHFSMsg #X41E)
  921.  
  922. (defconstant $kIPMReadReplyQueue #X421)
  923. (defconstant $kIPMVerifySignature #X422)
  924.  
  925.  
  926. (deftrap _ipmopencontext ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  927.    (:stack :signed-integer)
  928.    (:stack-trap #xAA5E paramblock async (1024 :signed-integer)))
  929.  
  930.  
  931. (deftrap _ipmclosecontext ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  932.    (:stack :signed-integer)
  933.    (:stack-trap #xAA5E paramblock async (1025 :signed-integer)))
  934.  
  935.  
  936. (deftrap _ipmnewmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  937.    (:stack :signed-integer)
  938.    (:stack-trap #xAA5E paramblock async (1026 :signed-integer)))
  939.  
  940.  
  941. (deftrap _ipmnewblock ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  942.    (:stack :signed-integer)
  943.    (:stack-trap #xAA5E paramblock async (1028 :signed-integer)))
  944.  
  945.  
  946. (deftrap _ipmnewnestedmsgblock ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  947.    (:stack :signed-integer)
  948.    (:stack-trap #xAA5E paramblock async (1029 :signed-integer)))
  949.  
  950.  
  951. (deftrap _ipmnestmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  952.    (:stack :signed-integer)
  953.    (:stack-trap #xAA5E paramblock async (1030 :signed-integer)))
  954.  
  955.  
  956. (deftrap _ipmwritemsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  957.    (:stack :signed-integer)
  958.    (:stack-trap #xAA5E paramblock async (1031 :signed-integer)))
  959.  
  960.  
  961. (deftrap _ipmendmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  962.    (:stack :signed-integer)
  963.    (:stack-trap #xAA5E paramblock async (1032 :signed-integer)))
  964.  
  965.  
  966. (deftrap _ipmopenqueue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  967.    (:stack :signed-integer)
  968.    (:stack-trap #xAA5E paramblock async (1033 :signed-integer)))
  969.  
  970.  
  971. (deftrap _ipmclosequeue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  972.    (:stack :signed-integer)
  973.    (:stack-trap #xAA5E paramblock async (1034 :signed-integer)))
  974.  
  975.  
  976. (deftrap _ipmverifysignature ((paramblock (:pointer :ipmparamblock)))
  977.    (:stack :signed-integer)
  978.    (:stack-trap #xAA5E paramblock (69337088 :signed-longint)))
  979.  
  980.  
  981. (deftrap _ipmopenmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  982.    (:stack :signed-integer)
  983.    (:stack-trap #xAA5E paramblock async (1035 :signed-integer)))
  984.  
  985.  
  986. (deftrap _ipmclosemsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  987.    (:stack :signed-integer)
  988.    (:stack-trap #xAA5E paramblock async (1036 :signed-integer)))
  989.  
  990.  
  991. (deftrap _ipmreadmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  992.    (:stack :signed-integer)
  993.    (:stack-trap #xAA5E paramblock async (1037 :signed-integer)))
  994.  
  995.  
  996. (deftrap _ipmreadheader ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  997.    (:stack :signed-integer)
  998.    (:stack-trap #xAA5E paramblock async (1038 :signed-integer)))
  999.  
  1000.  
  1001. (deftrap _ipmopenblockasmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1002.    (:stack :signed-integer)
  1003.    (:stack-trap #xAA5E paramblock async (1039 :signed-integer)))
  1004.  
  1005.  
  1006. (deftrap _ipmnewhfsmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1007.    (:stack :signed-integer)
  1008.    (:stack-trap #xAA5E paramblock async (1054 :signed-integer)))
  1009.  
  1010.  
  1011. (deftrap _ipmreadrecipient ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1012.    (:stack :signed-integer)
  1013.    (:stack-trap #xAA5E paramblock async (1040 :signed-integer)))
  1014.  
  1015.  
  1016. (deftrap _ipmreadreplyqueue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1017.    (:stack :signed-integer)
  1018.    (:stack-trap #xAA5E paramblock async (1057 :signed-integer)))
  1019.  
  1020.  
  1021. (deftrap _ipmcreatequeue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1022.    (:stack :signed-integer)
  1023.    (:stack-trap #xAA5E paramblock async (1041 :signed-integer)))
  1024.  
  1025.  
  1026. (deftrap _ipmdeletequeue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1027.    (:stack :signed-integer)
  1028.    (:stack-trap #xAA5E paramblock async (1042 :signed-integer)))
  1029.  
  1030.  
  1031. (deftrap _ipmenumeratequeue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1032.    (:stack :signed-integer)
  1033.    (:stack-trap #xAA5E paramblock async (1043 :signed-integer)))
  1034.  
  1035.  
  1036. (deftrap _ipmchangequeuefilter ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1037.    (:stack :signed-integer)
  1038.    (:stack-trap #xAA5E paramblock async (1044 :signed-integer)))
  1039.  
  1040.  
  1041. (deftrap _ipmdeletemsgrange ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1042.    (:stack :signed-integer)
  1043.    (:stack-trap #xAA5E paramblock async (1045 :signed-integer)))
  1044.  
  1045.  
  1046. (deftrap _ipmaddrecipient ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1047.    (:stack :signed-integer)
  1048.    (:stack-trap #xAA5E paramblock async (1027 :signed-integer)))
  1049.  
  1050.  
  1051. (deftrap _ipmaddreplyqueue ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1052.    (:stack :signed-integer)
  1053.    (:stack-trap #xAA5E paramblock async (1053 :signed-integer)))
  1054.  
  1055.  
  1056. (deftrap _ipmopenhfsmsg ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1057.    (:stack :signed-integer)
  1058.    (:stack-trap #xAA5E paramblock async (1047 :signed-integer)))
  1059.  
  1060.  
  1061. (deftrap _ipmgetblkindex ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1062.    (:stack :signed-integer)
  1063.    (:stack-trap #xAA5E paramblock async (1048 :signed-integer)))
  1064.  
  1065.  
  1066. (deftrap _ipmgetmsginfo ((paramblock (:pointer :ipmparamblock)) (async :boolean))
  1067.    (:stack :signed-integer)
  1068.    (:stack-trap #xAA5E paramblock async (1049 :signed-integer)))
  1069.  
  1070. ; **************************************************************************************
  1071. ;  EXTERNAL ROUTINES 
  1072.  
  1073. (defconstant $kOCESizePackedRecipient 830)
  1074. (defconstant $kOCEPackRecipient 831)
  1075. (defconstant $kOCEUnpackRecipient 832)
  1076. (defconstant $kOCEStreamRecipient 833)
  1077. (defconstant $kOCEGetRecipientType 834)
  1078. (defconstant $kOCESetRecipientType 835)
  1079.  
  1080. ; 
  1081. ; Compute the space that a OCERecipient would take if it were in packed
  1082. ; form.  [Note: does NOT even pad extensionSize, so you may get an odd #back out]
  1083. ; Safe to pass dereferenced handle(s).
  1084. ; 
  1085.  
  1086.  
  1087. (deftrap _ocesizepackedrecipient ((rcpt :dsspec))
  1088.    (:stack :signed-integer)
  1089.    (:stack-trap #xAA5C :d0 830 rcpt))
  1090.  
  1091. ; 
  1092. ; Take an OCERecipient (scatter) and (gather) stream into the specified
  1093. ; buffer.  It is assumed that there is sufficient space in the buffer (that is
  1094. ; OCESizePackedRecipient).  Safe to pass dereferenced handle(s).
  1095. ; 
  1096.  
  1097. (deftrap _ocepackrecipient ((rcpt :dsspec) (buffer :pointer))
  1098.    (:stack :signed-integer)
  1099.    (:stack-trap #xAA5C :d0 831 rcpt buffer))
  1100.  
  1101. ; 
  1102. ; Take a packed OCERecipient and cast a the OCERecipient frame over it. Returns
  1103. ; amBadDestId if it doesn't look like an OCERecipient. Safe to pass dereferenced
  1104. ; handle(s).
  1105. ; 
  1106.  
  1107. (deftrap _oceunpackrecipient ((buffer :pointer) (rcpt (:pointer :dsspec)) (entityspecifier (:pointer :recordid)))
  1108.    (:stack :signed-integer)
  1109.    (:stack-trap #xAA5C :d0 832 buffer rcpt entityspecifier))
  1110.  
  1111. ; 
  1112. ; Take an OCERecipient (scatter) and (gather) stream using the specified
  1113. ; function.  Safe to pass dereferenced handle(s).  If streamer function returns
  1114. ; OCEError OCEStreamRecipient stops execution and passes the error back to the caller
  1115. ; 
  1116.  
  1117. (def-mactype :OCERECIPIENTSTREAMER (find-mactype :POINTER))
  1118. ;  FUNCTION OCERecipientStreamer(
  1119. ;         VAR buffer: void; count: LONGINT; eof: BOOLEAN; userData: LONGINT): OSErr;
  1120.  
  1121.  
  1122. (deftrap _ocestreamrecipient ((rcpt :dsspec) (stream :pointer) (userdata :signed-long) (actualcount (:pointer :signed-long)))
  1123.    (:stack :signed-integer)
  1124.    (:stack-trap #xAA5C :d0 833 rcpt stream userdata actualcount))
  1125.  
  1126. ;  Get the OCERecipient's extensionType. Safe to pass dereferenced handle(s).
  1127.  
  1128.  
  1129. (deftrap _ocegetrecipienttype ((cid :creationid))
  1130.    (:stack :ostype)
  1131.    (:stack-trap #xAA5C :d0 834 cid))
  1132.  
  1133. ; 
  1134. ; Set the OCERecipient's extensionType in the specified cid.  (Note: we do NOT
  1135. ; check for a nil pointer).  If the extensionType is 'entn', the cid is assumed
  1136. ; to be "valid" and is not touched.  Note: to properly handle non 'entn''s this
  1137. ; routine must and will zero the high LONGINT (source) of the cid! Safe to pass
  1138. ; dereferenced handle(s).
  1139. ; 
  1140.  
  1141. (deftrap _ocesetrecipienttype ((extensiontype :ostype) (cid (:pointer :creationid)))
  1142.    nil
  1143.    (:stack-trap #xAA5C :d0 835 extensiontype cid))
  1144.  
  1145. ; $ENDC                         ;  UsingOCEMessaging 
  1146.  
  1147. ; $IFC NOT UsingIncludes
  1148.  
  1149. ; $ENDC
  1150.  
  1151. (export '($KOCESETRECIPIENTTYPE $KOCEGETRECIPIENTTYPE $KOCESTREAMRECIPIENT
  1152.           $KOCEUNPACKRECIPIENT $KOCEPACKRECIPIENT $KOCESIZEPACKEDRECIPIENT
  1153.           $KIPMVERIFYSIGNATURE $KIPMREADREPLYQUEUE $KIPMNEWHFSMSG
  1154.           $KIPMADDREPLYQUEUE $KIPMGETMSGINFO $KIPMGETBLKINDEX $KIPMOPENHFSMSG
  1155.           $KIPMDELETEMSGRANGE $KIPMCHANGEQUEUEFILTER $KIPMENUMERATEQUEUE
  1156.           $KIPMDELETEQUEUE $KIPMCREATEQUEUE $KIPMREADRECIPIENT
  1157.           $KIPMOPENBLOCKASMSG $KIPMREADHEADER $KIPMREADMSG $KIPMCLOSEMSG
  1158.           $KIPMOPENMSG $KIPMCLOSEQUEUE $KIPMOPENQUEUE $KIPMENDMSG $KIPMWRITEMSG
  1159.           $KIPMNESTMSG $KIPMNEWNESTEDMSGBLOCK $KIPMNEWBLOCK $KIPMADDRECIPIENT
  1160.           $KIPMNEWMSG $KIPMCLOSECONTEXT $KIPMOPENCONTEXT
  1161.           $KIPMNOTRANSFERMSGTOOLARGE $KIPMNOTRANSFERMSGREJECTEDBYDEST
  1162.           $KIPMNOTRANSFERDISKFULL $KIPMRECIPIENTREQSNAPSHOT
  1163.           $KIPMRECIPIENTREQSTDCONT $KIPMMSGNOTRANSLATABLECONTENT
  1164.           $KIPMMSGEXPIRED $KIPMMSGUNREADABLE $KIPMGROUPEXPANSIONPROBLEM
  1165.           $KIPMRECIPIENTACCESSDENIED $KIPMRECIPIENTAMBIGUOUS
  1166.           $KIPMRECIPIENTMALFORMED $KIPMNOSUCHRECIPIENT
  1167.           $KIPMENCLOSEORIGINALONERRORMASK $KIPMORIGINALONLYONERRORMASK
  1168.           $KIPMSUMMARYREPORTMASK $KIPMIMMEDIATEREPORTMASK
  1169.           $KIPMENCLOSEORIGINALMASK $KIPMDONTENCLOSEORIGINALMASK
  1170.           $KIPMNONDELIVERYNOTIFICATIONMASK $KIPMDELIVERYNOTIFICATIONMASK
  1171.           $KIPMNONOTIFICATIONMASK $KIPMORIGINALONLYONERRORBIT
  1172.           $KIPMSUMMARYREPORTBIT $KIPMENCLOSEORIGINALBIT
  1173.           $KIPMNONDELIVERYNOTIFICATIONBIT $KIPMDELIVERYNOTIFICATIONBIT
  1174.           $KIPMFIXEDINFO $KIPMMESSAGETYPE $KIPMMESSAGETITLE $KIPMPROCESSHINT
  1175.           $KIPMSENDER $KIPMTOC $KIPMWSRECEIVERNBPTYPE
  1176.           $KOCEPACKEDRECIPIENTMAXBYTES $KOCEDONTUSEHANDYDIAL $KOCEUSEHANDYDIAL
  1177.           $KOCESPATXTN $KOCEATTRXTN $KOCEQNAMXTN $KOCEADDRXTN $KOCEAPHNXTN
  1178.           $KOCEENTNXTN $KOCEALANXTN $KIPMSTRINGFORMATTYPE $KIPMOSFORMATTYPE
  1179.           $KIPMDIGITALSIGNATURE $KIPMREPORTINFO $KIPMENCLOSEDMSGTYPE
  1180.           $KIPMREPORTNOTIFY $KIPMSIGNATURE $KIPMFAMILYWILDCARD
  1181.           $KIPMFAMILYUNSPECIFIED $KIPMTYPEWILDCARD $KIPMBCCRECMASK
  1182.           $KIPMREPORTERRECMASK $KIPMFEEDBACKRECMASK $KIPMDUMMYRECMASK
  1183.           $KIPMFROMDISTLISTMASK $KIPMBCCRECBIT $KIPMREPORTERRECBIT
  1184.           $KIPMFEEDBACKRECBIT $KIPMDUMMYRECBIT $KIPMFROMDISTLISTBIT
  1185.           $KIPMSENDERRECORDIDTAG $KIPMSENDERRSTRINGTAG $KIPMDELETEMSGMASK
  1186.           $KIPMNEWMSGMASK $KIPMUPDATEMSGMASK $KIPMDELETEMSGBIT $KIPMNEWMSGBIT
  1187.           $KIPMUPDATEMSGBIT $KIPMFROMMARK $KIPMFROMLEOM $KIPMFROMSTART
  1188.           $KIPMATMARK $KIPMNORMALPRIORITY $KIPMANYPRIORITY))
  1189. (provide-interface 'OCEMessaging)